home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
CITY.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-08-31
|
937b
|
32 lines
' CITY.BAS
' This program stores a list of cities in a sequential file.
OPEN "CITY.TXT" FOR OUTPUT AS #1 ' open file in current drive/dir
CLS
PRINT "This program stores city names on disk in a file named CITY.TXT."
PRINT "Enter your favorite cities and type END to quit."
PRINT
DO WHILE (city$ <> "END") ' until user enters END
INPUT " City name: ", city$ ' get names from user
IF (city$ <> "END") THEN PRINT #1, city$ ' write names to file
LOOP
CLOSE #1 ' close file
PRINT
INPUT "Press Enter to see the cities you entered. ", dummy$
PRINT
OPEN "CITY.TXT" FOR INPUT AS #1 ' open file for input
DO WHILE (NOT EOF(1)) ' until end of file is reached
INPUT #1, city$ ' get names
PRINT city$ ' print names
LOOP
CLOSE #1 ' close file